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I. INTRODUCTION 


This paper presents the results of an effort to develop 
visual simulations of a variety of stochastic models via a 
relatively new media, the microcomputer. 

The intent of the effort was to create a real time 
perception of the models in action; to give the viewer an 
experience that could not otherwise be attained through text 
Bigmeclassroom Study. The microcomputer is suitable flor this 
Meegect dadve to 1¢S$ graphic capability, portability and 
accessability. 

The theme for this project is the Poisson process. Four 
computer programs are provided that simulate the process 
elther by itself or in applications. Represented are a 
Simple and a superimposed Poisson process, an M/M/1l queue, a 
dam model and a damage model. 

Descriptions of the programs and instructions to operate 
them are found in the User Guide. The remainder of this 
paper will touch upon several aspects of the project and 
Drograms that may be of interest to the general reader or of 
mupcmaranmce to those who may wish to pursue work of this 


Mature. Program Listings are found in Appendix A. 





ti. ~DIscuss Low 


~. «6THeeCOMPUTER 

Diep. IT Pius Computer with 48K of memorymwas used for 
mas “Project. An Apple was selected because of its 
relatively easy accessability to anyone who may wish to run 
the programs. PiragGchelonmmemes iS expected @ehat, themiprograns 
of this package will run with little or no modificaticn on 
future generations of Apple hardware. The programs will run 


Sumene apple Il in the emulation mode. 


5B. THE BANGUAGE 

Mme programs in this package are written in Applesoft 
errame, a SuUbSet Of Microsoft BASIC with floating point and 
Soeemat graphics featues. The selection of this language 
Seen o@encr Languages available, (including PASCAL, and 
POrmrRa), was a matter of convenience. Apple is a 
mer olG=-speaking’ computer, and there is a great deal of 
commercial software support for developing programs, graphics 
eames Otmer Screen displays. 

Although BASIC was used, Pascal was the first choice for 
res ono ye Cc C.. MmaootSe nue -uUnedimnatture Drovides “nigh 
iegibility, aiding the interested reader as weli as the 
Pima mereGrammer in understanding the program. The author 


Se@itemed to BASIC after discovering that many specializec 
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graphics features required for the programs were not avail- 
able in commercial Pascal graphics packages. Rather than 
make a compromise on the graphic presentation of the 
Simulations, the author opted for an alternate language. 

The type of programming language used is not critical. 
speed is not essential, nor are there any special 
capabilities needed other than those provided by Applesoft 
Bro 1 e% Most of the programming involves use of the 
computers' resident graphics package and a second special 


graphics package, to be described next. 


ee SOFTWARE AIDS 

Two commercial software packages were used to aid in 
Peecatcing Ehe programs of this project; Printer II by 
Computer Systems Design, required to format numerical output 
in two of the programs, and the ‘Hi-Res Character Generator' 
once) f£OUnG in the Applesoft Tool Kit produced by Apple 
Gomouter, inc. The Printer II package adds a final touch to 
the programs and is not absolutely necessary to successful 
production. The HRCG was essential. Without it, many of the 
graphics features would have been, at the least, very 


Geert tO produce. 


D. PROGRAMMING METHODS 
Meoctram Listings are found in Appendix A. As will be 


osedremmose Of the programming structure deals with 








preparation and execution of graphics. All of the programs 
are structured in a similiar fashion. 

fey pecal program omay be divided dntow several 
Subroutines. Cee wintolalizgation portion of the program 
Starts at line number 189909. Other important parts include; 
Wmelcmmmciming Or Clock routine starting at line 19909, 
plotting routines starting at 2000, a keyboard command 
routine starting at 3900, and in two cases a parameter change 
routine starting at line 4090@. 

[Pieri ka lization portion of the program defines 
character strings, sets constants, and determines time to the 
first event of the program. The timing routine is similiar 
to a next-event structured Simulation. The program loops 
Maer emis routine, Keeping count of each pass; the count 
representing time. In each pass a check is also made to see 
whether 1t 1S time for an event to occur. If so the program 
Homes to the plotting routine. 

The plotting routine handles all the particulars needed 
to output on to the screen the effect of an event occurring, 
for example, a customer arriving at a queue, or an automobile 
Passingqmoy a Particular point along a road. Aé£ter the event 
Seemm@smand while still in the plotting routine, a random 
number is obtained which is subsequently converted to 
represent time to the next event. Then, the program jumps 


back to the timing routine. 





fiance yoOard Goutine is Simply a ‘control center’ to 
filter commands intercepted from the keyboard. Keyboard 
commands not recognized are ignored. The parameter change 
routine starting on line 4006, is provided to allow the user 


to change mean interarrival times in two of the programs. 


E. GRAPHIC SIMULATIONS 

tm@ememdre 55,760 locations arranged in a 286 by 192 array 
on the monitor screen available for program output. This 
presents a problem in truly representing a continuous random 
variable such as exponential interarrival times of the 
Poisson process. Fortunacely, for the purposes of this 
project, this limitation is minor. The interarrival times as 
represented in the programs appear to belong to a Poisson 
process and the appearance is considered sufficient. 

All of the programs in one way or another describe events 
and the interarrival times between events. The interarrival 
times shown or perceived are in fact geometric; the discrete 
analog of the exponential. The random number representing 
time to the next event is rounded up to the next highest 
integer to do this. The average interarrival time is 
weeuceeeyvetyigner chan the average that would result 1£ the 
random numbers were truly exponential. The visual effect on 


eemacieeeih £rom this alteration 1S minimal. 


id 





F. RANDOM NUMBERS AND TRANSFORMATIONS 

The following paragraphs briefly explain how the programs 
use random numbers to create Poisson simulations. The source 
of random numbers is the BASIC function RND. RND supplies 
uniform (8,1) random numbers which are then transformed in 
varlous ways to suit program objectives. The sequence of 
random numbers used in the programs are not repeatable, 
though this option was available. 

Each of the four programs present simulations based on an 
underlying Poisson process, and therefore, all use 
exponential random numbers. To obtain the exponentials, 
unig~orm (@,1) random numbers are transformed through the 
inverse probability method. The variable 'y' is set equal to 
the uniform random number, and the variable 'x' is assigned 
the resultant exponential random number. The constant 'L' is 


the rate parameter; 


F(x) = y= 1 = exp(- L * x) 
1- y = exp(- L * x) 
ie ey) = = Ee 
X¥ = - In(l - y) / L 
ore Kea In(y) 7 6 


ieee ove transformation is, of course, valid; E(x) 1S “tne 
distribution function of a continuous random variable and the 
inverse distribution function exists, therefore, the 


Brccopeiity density of F(x) is uniform on the interval (@,1). 


ims 








The program labeled ‘Poisson Process' presents 
Simulations of both a simple and a superimposed Poisson 
process. For the simple process, exponential random numbers 
are obtained one at a time. Initially, one exponential 
random number is generated. As the program progresses, a 
time counter is incremented and eventually becomes equivalent 
to the number, whereupon, an event is simulated. The program 
then generates another exponential random number, the counter 
is reset and the procedure begins again. 

In the superimposed mode, two Poisson processes are 
active, each with a different rate parameter, (call them Type 
I and Type II with respective parameters Ll and L2). Two 
random numbers are obtained initially, one for each type. As 
the program progresses, a time counter is incremented until 
the value of the counter becomes equal to the smaller of the 
two numbers. Then, a Simulation of the type of event that 
the smaller number 18S associated with, occurs. After the 
Simulation, this smaller number is replaced with a new random 
BuUMber. The next event, (Type I or Type II), will occur when 
the counter becomes equivalent to the smaller of the two 
numbers now on hand; the new one or the one that was not 
involved with the last simulation. 

Should the values of the two random numbers ever be 
equal, a uniform (@,1) random number is obtained and used to 
determine which of the two types of events will occur firsct. 


Tf the number is iess than a predetermined value ‘p', one 


1 








Mype of event occur, and if not, the second type of event 
will occur. The value 'p' is generated by the following 
equation where 'Ll' and 'L2' are the rates of the two Poisson 


processes; 
Py-- Lie (Lle+ £2) 


mimeeVathe “p' is the probability that a Type I event will 
occur before a Type II event. bet. “iT be ne seime eo ete 
next event and 'Tl' and 'T2' be independent random variables 
corresponding to the respective times that the Type I and 
yee 1h events will occur; then, the time to the next event 


will be; 


sical Wien Brobabl Witty. 2) 


2 With Oboe i lay l1=-p 


There is another transformation that takes place when 
mean interarrival times are changed by the user through 
Keyboard commands. rh Enhat, trans formation tne mean 
interarrival times displayed on the screen are not those used 
in the transformation equations; they are converted first 
Ehrough an equation relating the exponential distribution to 
mmeeGeometric distribution. Below, the variable 'GmM' is 
assigned the value obtained from the keyboard input, (and 


Seespiavyed on the screen), and the variable 'EM' is the 





parameter used in the transformation equation, (EM = mean 


miterarrival time = 1 / L; L = rate of the process); 


EM = —- In(l - 1 / GM) 


Thus if 'GM' is made equal to 5, then 'EM' will be assigned 
the value 4.48142912. This procedure is included in the 
program only to synchronize the results presented in the 
Statistics display with the time plot. 

The M/M/1 queue model is built very much like the program 
"Poisson Process' in that two exponential random numbers are 
needed, one for interarrival times, and one for service 
Eames. The numbers are obtained in the same way and the 
exponential to geometric conversion is identical. There is 
no concern for the possidility of a simultaneous occurrence 
of an arrival event and a departure event. Thus, if the two 
random variables should become equal the time plot included 
Ma the program indicates a simultaneous arrival and 
@eparture. Character animations representing arrivals and 
departures allow for the arrival to always occur first. 

The two remaining programs involve the compound Poisson 
process. In the dam model, the two random numbers are used 
whenever an event occurs and therefore, are both repolaced at 
the same time. One represents the interarrival time to the 
Mememegent (arrival of a cloud) and forms the Poisson 
process. The second is an independent and identically 


distributed random variable independent of the interarrival 


14 





images, (GNe amount of rain that falls from each cloud). MThis 
second random variable is also exponential. Random variables 
Peecn OtMer distributions could have been used but the 
exponential was suitable for the graphic presentations. 

The second compound Poisson process is found in the 
damage model program. Here, as with the dam model, two 
random numbers are obtained at the same time; both are 
exponential. One is used to form the Poisson process and 
represents times to succesSive events that cause damage. The 
amount of damage incurred is represented by the second random 
variable. Again, a random variable with some different 
distribution could have been used for amount of damage. 

In both compound Poisson process models the random 
variables are not converted from geometric to exponential or 


vice versa. 


G. THE RANDOM NUMBER GENERATOR 

Peommoced oreyviously, the BASIC function RND was used to 
obtain uniform (9,1) random numbers for program overation. 
It is not known how closely a sequence of these numbers 
Pomborms to a uniform distribuiton. The nature of the 
programs does not require exactness and therefore precision 
Mas NOt Of great concern. Nevertheless, out of interest, two 
Pigamioecaetests for distribution conformity and independence 
were run to obtain some measure of the generators’ 


Sucetieiency. 








The two tests run were the frequency test and the serial 
mest. Each was run 180 times and for each of the 180 
iterations, 1588 random numbers were used. The results were 
favorable. Comparison of the observed sequences with the 
Beeepectea Characteristics of the uniform (8,1) distribution, 
showed a 3% rejection for the frequency test and a 53% 
Mmegectlion £Eor the serial test. Using a chi-square 
goodness-of-fit test for each, the hypothesis that the 
distributicn from which random numbers are obtained for the 
Simulations is uniform (9,1), cannot be rejected at the 95% 
level of confidence. 

For work requiring precision, further tests of RND would, 
of course, have to be conducted, and no definite conclusions 


concerning its adequacy can be drawn here. 
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A. INTRODUCTION 

The package of programs collectively labeled 'POISSON 
PROCESSES,' is designed for use on the Apple II or Apple II 
Plus microcomputer. The programs themselves are designed to 
provide the viewer with a real time perception of Poisson 


processes in action. Each simulates a different situation; 


- 'Poisson Process,!' is a Simple demonstration of the 
occurrence of events in a Poisson manner. 

- 'MM10,'° is the simulation of a Simple single-server 
queue with exponential interarrival times and exponential 
service times (the M/M/1 queue). 

- 'Dam Model,' simulates one of the classic applications 
of the compound Poisson process. 

- 'Damage Model,' represents the compound Poisson process 


applied to a cumulative damage model. 


Mnemtollowing paragraphs provide an explanation of 
equipment requirements, procedures to follow to properly 
operate the microcomputer, and a more detailed description of 


each program. 


B. EQUIPMENT REQUIREMENTS 

An Apple II Plus computer (or Apple II with Applesoft 
card or Language System), with at least 48k of memory, a disk 
drive and controller, and a monitor (or television) are 


required to run these programs. The minimum memory size is 


Zt 





i 


needed to provide two ‘'pages' of memory for graphics. An 
Apple is required not only because the programs are written 
in Applesoft Basic but because the programs use a special 
high resolution character generator program made for the 
Apple by Apple Computer Inc., to produce special effects on 


the screen. 


me OLARTING UP 
To run the programs, place the disk into the disk drive, 


em@e@etucn on the computer and monitor. The introductory 
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Figure 1: First Display of Indroductory Program 


orogram, (FISHPOND LOGO), will be automatically loaded and 
in . It will take a few seconds before anything appears on 


the screen, as the startup program must first ioad the aualeia 





resolution character generator and character sets. The first 
presentation will look like Figure 1, above. 

By pressing the space bar as directed in the first 
display the presentation will change to that shown in Figure 


2; 


POISSON PROCESSES 
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Figure 2: Second Display of Introductory Program 


The ‘Acknowledgements’ section of the introductory 
program sights the use of commercial software used to run the 
programs. The ‘Introduction’ is a condensed version of the 
Mrenreaquction in this guide and, therefore, will not be 
discussed here. Through the 'Menu,' the user can access each 
of the four programs which make up the package. 

Once into a program, any of the other programs may be 
meeessedseltner through the Menu or directiy. To obtain the 


Menu aeeany time, simply press the ‘M' key. To go to another 


23 





specific program directly, use the same key as called for in 
the Menu. 

In addition, each program has its own 'Help' program 
which can be accessed by pressing the 'H' key. These Help 
programs give condensed versions of the following program 
descriptions as well as brief listings of keyboard commands 


which can be used in the respective programs. 


D. PROGRAM DESCRIPTIONS 

Each program is described separately on the subsequent 
Beges. ach description includes a brief explanation of what 
is happening in the program and includes a summary of the 


commands that can be used during the program operation. 


BPuOg rai 
POISSON PROCESS 

This program illustrates a simple Poisson process in 
metilon. The graphical representation is composed of three 
parts; a time plot, animated characters which move across the 
screen at random intervals of time, and an optional 
Statistics display. The advance of time is represented by a 
plot of ‘'tic' (or time) marks. To better associate real time 
with program time consider the unit of time as a ‘second.' 
Different types of marks are plotted for one ‘second', five 
"seconds,' and sixty 'seconds.' The occurrence of an event 
is marked with a diamond shape and an animated character (bus 


Qr automobile), moves across the screen From left to right. 
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When the program is first run the viewer will be looking 


at a Poisson process which is in fact a composition of two 


Pearse 


POO- ete ee Stee Gtr ess 1 O- + O1-90- 
99° O91 = = - 90+ 4000+ ++ - 1-05-5-5-9 
1999 - 99D- - 6O- Oe 60 O10 Hee 
i Se oe 2 ee 
O22 220-8 
ime= 127 . 
Count (ad= 23 HA= 5.69 a= 5.52 
ount(s = cl MS= 6.90 uB= 6.04 


Figure 3: ‘Poisson Process‘ Screen Display 


Poisson processes; one process for the transit of automobiles 
and a second process for the transit of busses. This 
Superimposed process may be decomposed by pressing the 'T' 
key. Subsequently, two lines of time marks will appear, the 
M@yeper line for the auto and the lower line for the bus, 
(re-compose by pressing the ‘U‘' key). 

There are several other features to this program which 
the viewer may find useful. First, the user may alter the 
program so that only one type of event will occur; automobile 
MeebuS, (press the ‘At key for auto only; the ‘Bt key for bus 
only). Secondly, the user may change the mean interarrival 


memeseor E€lther the auto, bus or both, (press the *C' key and 
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powew the instructions). A seaclselcs dlSpikay. Ws alse 
provided, (press the 'D' key to turn on). The display shows 
a time count, and the theoretical and empirical mean 
interarrival times for the automobile and bus. The 
theoretical means are built into the program and may be 
changed as noted above. The empirical means change 
automatically with the passage of time, (the respective means 
are identified in the display by subscripts; 'A' stands for 
automobile and 'B' stands for bus; Press the '0' key to turn 
the display off ). 

There are several ways to speed up the program so that, 
for example, one may watch the values of the empirical means 
Momvyergqe to those of the theoretical means. First, the 
Drogram has two built in speeds; slow and fast. The slow 
speed is the default, (press 'F' for the fast speed and 'S' 
to get back to the slow speed). Secondly, the program will 
run a little faster without the vehicles running across the 
Sereen, (press 'N'), and faster still if the time marks do 
not display, (press 'N' again; The statistics display must 
Be on to turn the time marks off; Press the 'Y' key twice to 
return all screen representations). 

AS an example, a key-press sequence might proceed as 
Paliowearmee Press "D' for the statistics display; Press "N’ to 
Mesomeienvenicles from running across the screen; Press ‘N’ 
Paaunmeco stop the 'tic' marks from being plotted. Now, onlv 


Biewseatisctics display will be showing, (Again, note that the 
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Statistics display must be showing before the 'tic' marks can 
be deleted from the screen). TO bringe ever yVthingmbacky, 
reverse the sequence; Press 'y', then 'y' again, then '0' to 


delete the display. 


Program 2 
MM10Q 
This program provides a visual display of the M/M/1 
queue; a Single-server queue with exponential interarrival 


times and exponential service times. As with the 'Poisson 


i en ee ee 


coo e to Ge QG@irscecersteereexteececa 


Pe Hee tere ec toreer te Ge Ht2-+-OG2- G2 H- 8 
C27oPeetorece toes Gt eee es tHH= = to = Ho 


eGee tore eo Heer ere Geeee2niGeee Goeoece 
= OO=- Se =e - 1 Geo ee teoree Ge Goer tzeczce 


1°09 


Time= 33 





Eigure 42° "MMIO"Sserech Display 


meeoeeosc smodqel, this program too provides a three part 
graphical presentation; animated figures that move across the 


screen, ‘tic’ marks that record tne passage of time and an 


Opticnal statistics display. 


ae - 





The keyboard commands are nearly the same. The user may 
alter the mean interarrival time and service time, (press key 
me), Change the program speed, ('S' for slow a@nd 'F' for 
Mmaet), Vlew a Statistics display, ('D' to turn on and 'O' to 
Guirm Off), and stop the character animation and time plot to 
speed up the program. 

iiewserecnh presentation will show two lines of ‘tic' 
marks. The upper line provides a representation of time and 
customer arrivals, which are marked by an open diamond shape. 
The lower line depicts service times and a departure event 
marked by a Solid diamond shape. When there are no customers 
memtmne 'Service@e@eomnter" no service time marks will be 
plotted. It will be noted that the customer being serviced 
is close to the ‘service counter' and not part of the queue. 

The statistics display shows a time count, the queue size 
(Q#), and the average queue size (Avg Q#). The theoretical 
means are not shown. They may be determined however, Dy 


entering the parameter change routine, (press key 'C"'). 


Program 3 

Dam Model 
This program portrays one of the classic applications of 
the compound Poisson process. In the model, clouds arrive in 
a random fashion and with each appearance a random quantity 
of rain falls. The cloud arrivals fEorm a Polsson process, 


and the amounts of rain from the clouds are independent and 
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identically distributed random variables, independent of the 
cloud arrival times, (the rainfall amounts are exponential in 
this model). There is an outflow of water from the dam at a 


Setistant rate. 





moment. || 


Figure 5: ‘Dam Model' Screen Display 


There are few keyboard commands for this program. As 
with the two previous models, there is a fast clock time and 
mo low Clock time, ('F' and ‘'S'). In addition, the viewer 
may interrupt the program to raise or lower the water behind 
the dam, (‘'U' to raise the level, 'D' to lower the level, and 
'N' to return to normal program operation). No statistics 
display is available, nor is there a parameter change 


routine. 
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Program 4 
DAMAGE MODEL 

This program depicts the compound Poisson process applied 
as a cumulative damage model. The graphical representation 
is composed of two parts; a time plot represented by 
horizontal line segments, and a balance beam or seesaw that 
provides a way to represent accumulation of damage. 

Pammeche beginning of the program, a horizontal line 
appears at the lower left hand corner of the border outline 


on the screen. The appearance of this line indicates the 





Figure 6: 'Damage Model' Screen Display #1 


Begimning of a lifecycle. The line will increase to a random 
length after which a new horizontal line will appear a random 
vertical distance above the old one. The new line will 


increase to a random length then another jump wili cccur, and 
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SO on. The length of a line represents the interarrival time 
between events. The occurrence of a jump represents an event 
that causes damage, and the vertical magnitude of the jump 
represents the amount of damage incurred. The event arrivals 
form a Poisson process, and the amounts of damage are 
independent and identically distributed random variables, 
independent of the event arrival times, (the damage amounts 


are exponential in this model). 





Figure 7: 'Damage Model' Screen Display #2 


When a jump occurs, ‘'weight' is added to the left side of 
the seesaw. The amount ci weight added corresponds to the 
emeunt OL damage incurred. The dotted line near the tcp of 
the screen border represents a threshold; a point which when 
reached will signal the end of the lifecycle. The final jump 


to this level wiil add enough ‘weight’ to the seesaw to cause 
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it to swing from its initial position of rest to the opposite 
extreme; a failure has occurred. The program then resets the 
screen images and restarts with a new lifecycle. 

Again, there are few keyboard commands. There is no 
fast/slow clock speed option or parameter change routine. 
Those options available are common to all programs and will 


be explained in the concluding paragraphs that follow. 


E. ADDITIONAL KEYBOARD COMMANDS 

In addition to the keyboard commands noted in the program 
descriptions, there are two that have not been mentioned 
moylch are common to all the programs. The first is the 
option to temporarily stop a program. This may be done by 
pressing the space bar. The program will do nothing further 
and the picture on the screen will remain motionless until 
the space bar is pressed again. 

The second and final command is the option to quit the 
package of programs altogether. Pressing the 'Q' key will do 
it; the program will end and the screen will go blank. This 
memmtbomeis effective in concluding a session with this 
package. Note however, that two further steps should be 
taken before the computer is used for further programming; 1) 
press the reset button to disable the high resolution 
character generator and clear memory of the character sets 
used in the programs, and 2) press the key sequence ‘FP’ to 


reset 'himem'. If these two steps are not carried out before 








the computer is put to some other use the user may run out of 
memory sooner than expected. Of course an alternate and 
perhaps simpler approach to resetting the computer is to turn 
MenoOLt and then back on. 

The two tables that follow provide of summary of keyboard 
commands. Table 1, gives the definitions of each command. 


Table 2, supplies commands available in each program. 








Table 1: Definition of Keyboard Commands 


ney Definition 
A Run Poisson process for auto only 
B Run Poisson process for bus only 
S Change parameters 
D Tima statiseles display on 
D Lower water level (Dam Model) 
F Run program fast 
N lst time; No character animation 


2nd time; no time plot 


N Normal program operation (Dam Model) 

O Hipiesbatlstlcs Gisplay off 

@. End session 

S Run program slow (default) 

ak Run decomposed Poisson process (auto and bus) 

U Run superimposed Poisson process (auto and bus) 
U Raise water behina dam (Dam Model) 

y Resume graphics (after 'N' 1s pressed one or 


more times) 


spe dar Stop program temporarily/resume program after 
EenpoLaly Stop 
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Table 2: 


Program 


Poisson Process 
MM1Q 
Dam Model 


Damage Model 


Reference Table for Keyboard Commands 


Keyboard Commands Available 


Poe Cy, eo Gils O,O,O0 pl po; UR SOS bar 
Gaetan, Of o,0,!1 ,SoGabar 
Deis. OU, SOC oar 


Q,spe bar 


SD 











APPENDIX A 


PROGRAM LISTINGS 


The program listings are written in Apple II Applesoft 


Bao lC. The programs were listed uSing XLISTER, a Beagle 


PmeoenerS, Inc. program. 





A. POISSON PROCESS PROGRAM 


GOSUB 19909 


REM INITIALIZE 


REM MAIN ROUTINE; 


PRINT 
POKE 
GOTO 


39 


OR TM = 


9 THEN POKE 37, ( 


CLOCK 


= 1 THEN PRINT CS 


> 1 AND PEEK 


CS 
37,14 
1839 


> 14 THEN POKE 37,14 


1962 


GOTO 


28 


REM MOVE AUTO 


2 oGOsuUs 


GOTO 


REM MOVE BUS 


1589 
1129 


ampeamweamwea= aw = a= a= a ame eae awe ea aap ae a 2 oa 


toa 


2GO LO 


/ 69 
1g 


INT 


res cM 
GOTO 


ee, 
jay 


INT 


=—_ ae ee ee eo ee eS ee ee ee eee eee 


maw ae eae ea ea a= ewe = ea aa eww ap ww ae 2 ae = a 


(3m) 


(aus 8) 


oH) 


PEEK 


(37) 


Vee THe IRPOK Eo pe 


(TM / 60) THEN PRINT MINS(L); 


THEN PRINT DASHS(L); 


+ 1) 











IF TM = 69 THEN TM = Q 
1156 IF PEEK ( - 16384) > 127 THEN GOSUB 3999 
pe: REM KEY PRESSED TO STOP CLOCK 


moo TL. = TT + 1 


iro 6h EF)6)6Cl €©> d6@d6CoTHEN Mi 

ee ee TD = 3 THEN Ml 

9 THEN M2 

Seer TD = 2 THEN M2 

mee Ltr SD = 1 THEN CH 
gee ev = PEEK (37) 
were YS; AS" 2" 


Tie 
Q 


Rk yg ae O87. 
g 


Ee nen 30) 


* 
* VTAB 18 

* HTAB ll 

* Been TT 

* : VTAB 19 

a 2 HrAB 35 

* PREM? FOR 5,2;:;#Ml 

* VTAB 29 

* HTAB 35 

* PRINT FOR 5,2;4#M2;AS"1" 

x GOSUB 26988 

* meee = | THEN POKE 36,( PEEK (36) - 1) 


1518 IF TD = 2 OR TD = 4 THEN PRINT DIAMS (1); 
* : GOTO 2999 


1528 IF TD = 3 THEN PRINT DIAMS (8); 
ees GOTO 2909 


IF VT = 2 THEN K = l 
1549 IF TM / 68 = INT (TM / 69) THEN PRINT DIAMS(K + 3); 
mes GOTO 2099 


1559 IF TM / 5 = INT (TM / 5) THEN PRINT DIAMS(K + 2); 
fee Guna 2000 








156@ PRINT DIAMS(K + 1); 


290806 CH = PEEK (36) 
eG = PEEK (37) 
; PRINT YS 
REM SAVE CURSOR POSITION 
20190 iPeaet De <)> S AND VT = 1 THEN Cl] = Cl + i 
fe- in = TT / Cl 


N 
Se 
N 
Q 
fH 
ry 
+3 
O 
AN 
Vv 
N 
» 
= 
O 
<= 
J 
ul 


2 iHeENy C2 CZ 


Seem 2 = TT / C2 
moe 86htreP 6 SD = |] THEN PRINT AS"2" 
VTAB 19 
eC Hie, | 1 
* ; PRINT Cl 
* : VTAB 19 
Recent aAs 35 
PecePRaNt? FOR 5,2; #M1 
* : VTAB 20 
= 
. 
~ 
+ 
* 


: HTAB ll 

Peek eN TT C2 

evra 20 

Sates «35 

©: PRINT FOR 5,2;#M2;AS"1" 


2050 FOR I = 1 TO 33 
= ViAB 3 
Seon raAS tf 
¢ PRINT CARS (VT); 
2 eNEAT 
VTAB 3 
HTAB 33 
PRINT ES 
VTAB 4 
HTAB 33 
PRINT ES 


2499 REM NEXT EVENT SUBROUTINE 


2519 T= - £1 * LOG ( RND (1)) 


Zoa20 0) = INT (T) + l 
>; REM AUTO ARRIVAL TIME 


SR) 





= ae 2 Se a ee eee eee ee eee ee ee 


= ae ae eee ee eee ee ee ee ee 


meee t= — E2 * LOG ( RND (1)) 


pooe f2 = INT (T) + 1 
seeerer BUS ARRIVAL TIME 


a a ee eee ee ee oe 


N 
Wn 
CO 
Q 
tH 
ry 
rj 
rN 
'U 
ri 
<>) 
| 
a 
=P 
N 
il 


sig cee 


-_— =P ee SP eee ee ee eee eee ee ee 


NO 
oa) 
\O 
S&S 
ri 
ry 
ae 
V 
ae) 
3 
ois 
go] 
=a 
a 
fj 
Ul 


yale aL 


PRINT WS; 

POKE 36,CH 

Poems 37 ,CV 

Memeo — et THEN POKE 36,( PEEK (36) + 1) 


eee eee ee 


3890 CH = PEEK (36) 
> Gy = PEEK (37) 
30106 IF PEEK ( -—- 16384) = 211 THEN R = 18009 
Tm-oGOre 3256 
* : REM RUN CLOCK SLOW 
3020 IF PEEK ( - 16384) = 198 THEN R= 1 
* 3; GOTO 32590 
* : REM RUN CLOCK FAST 
39390 IF PEEK ( -— 16384) = 206 AND N = 9 AND SD = 1 THEN NN = 
4 
xs PRINT 2S 
fe Goto 3252 
* : REM SHOW STATS DISPLAY ONLY 
3949 IF PEEK ( -—- 16384) = 206 THEN N = 9g 


* : GOTO 325¢ 
* -: REM SHOW ALL BUT CHARACTER ANIMATION 


4Q 





3858 IF PEEK ( - 16384) = 217 AND NN = @ THEN NN = 1] 
* :; CH = @ 
Zee cy = 5 
* TM = @ 
fecere TD = 1 THEN CV = 2 
* : GOTO 3256 REM IN DISPLAY ONLY MODE; BRING BACK TIMING 


PLOT 
3060 IF PEEK ( - 16384) = 217 THEN N = 1 
-'GOTO 32508 
>: REM NOT SHOWING CHARACTER ANIMATION;BRING IT BACK 
3876 IF PEEK ( - 16384) = 196 THEN SD = 1 
* : GOSUB 3540 
* 3; GOSUB 2680 
* GOTO 32524 
* REM SET DISPLAY MODE 
3880 IF PEEK ( - 16384) = 2067 AND NN = 1 THEN SD = Q 
* ; PRINT YS 
* VTAB 18 
* HTAB 1 
* PRINT FS 
* 3; GOSUB 26908 
pee GOTO 3256 
* REM TURN OFF DISPLAY 
3094 IF PEEK ( - 16384) = 212 THEN TD = 1 
aoe tL. = 2 
* :; VT = @ 
* : POKE - 16368,80 
* : POP 
™ * PRINT AS"2" 
“ GOTO 418@ REM DISPLAY TWO SETS OF TIMING MARKS 


=—_— ese eweaeeweaeweawease ewe ee awe aewaw asp aes] 8 22 S22 aoe == —™= 


31966 IF PEEK ( - 16384) = 194 THEN TD 


3 


POKE - 16368,2 
POP 
PRINT AS"2" 
GOTO 4184 
REM DISPLAY BUS TIMING MARKS 
3110 IF PEEK ( - 16384) = 193 THEN TD 
oes et, = 1 
eevee = 1 
* : POKE - 16368,9 
* ; POP 
x ° 
x 


+ + 4 4 4 
ee 08 


UI 
N 


> PRINT AS"2" 
> GOTO 41896 





* : REM DISPLAY AUTO TIMING MARKS 


peeew IP PEEK { - 16384) = 213 THEN TD = 4 
ee i = | 
=e Vi = Q 
* : POKE - 16368,90 
* : POP 
se: PRINT AS"2" 
mee GORO 4189 
* 


REM DISPLAY ONE LINE FOR BOTH VEHICLES 

3130 IF PEEK ( - 16384) = 195 THEN PoP 

: GOTO 40090 

* : REM CHANGE PARAMETERS 

3146 IF PEEK ( - 16384) = 205 THEN PRINT 2S 
* : PRINT CHRS (4);"RUN MENU" 

3150 IF PEEK ( - 16384) = 200 THEN PRINT ZS 
* : PRINT CHRS (4);"RUN POISSON HELP" 

3160 IF PEEK ( - 16384) = 209 THEN POKE - 16368,9 
* : PRINT YS;PS$;2Z5$ 
* : END 

3170 CS = PEEK (115) + PEEK (116) * 256 

3180 IF PEEK ( - 16384) = 178 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD QUEUE.SET,A",CS 
* ; PRINT CHRS (4);"RUN MM1Q" 

3190 IF PEEK ( - 16384) = 179 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD DAM.SET,A",CS 
* : PRINT CHRS (4);“RUN DAM MODEL" 

3200 IF PEEK ( - 16384) = 180 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD DAMAGE.SET,A",CS 
* : PRINT CHRS (4);"RUN DAMAGE MODEL" 

3210 IF PEEK ( - 16384) = 181 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD FISH.SET,A",CS 
* : PRINT CHRS (4);"RUN FISHPOND" 


peewee ePEEK { ~ 16384) < > 160 THEN 3250 


P2oOreie sPEEK { — 16384) = 158 THEN POKE - 16368,98 
Peer GLOCK STOPPED TO PAUSE 


3246 IF PEEK ( - 16384) < > 160 THEN GOTO 32490 
* : REM AWAITING SPC BAR TO RESUME 
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Bie 0 


POKE - 16368,@ 
Bone 36,CH 
POKE 37,CV 
RETURN 


PRINT YS;AS*%2— 
VTAB 18 
HTAB 5 


Prep So; “TIME= ";TT 


VTAB 19 

HPAB 1 

PRINT SS$;"COUNT( )= 
VTAB 19 

HOAB 17 

PRINT " ="; 

PRINT FOR 5,2;4Gl 


PRINT " ="; 
PRINT FOR 5,2; #M1 
VTAB 20 

Heeaee 1 

PRINT SS;"COUNT( )= 
VTAB 29 

HTAB 17 

PRINT " =“ 
PRoeta@ FOR 5,2; 4G2 
VTAB 29 

MAB) 31 

PRENT ° ="; 
PRINT FOR 5,2; 4#M2 


_ ere ae a ae ee eee ee eee 2 ee ee ee oF ae ae SS «= 


Preenis Ko?AS™1" 
VTAB 19 
HTAB 7 
PpReNnr ™5™ 
Vems 19 
HTAS 18 
PRINT "45" 
V Tee 19 
HTAB 32 
PRINT "75" 
VTAB 22 
APTA / 
PRINT "6" 
Vias 29 
aan 18 
PRINT "do" 


ere: 


CO 
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: VTAB 20 
—HeAs 32 

: PRINT "76" 
>: RETURN 


4000 PRINT AS"2";PS 


HTAB 1 
Peet So; PRESENT MEANS;";CS;SS;"INTERARRIVAL ";SS;-"TI 
ME AUTO) °;CS;SS;"INTERARRIVAL ":SS;"TIME (BUS)™ 


PRINT FOR 5,2;#Gl 
VTAB 8 

s HTAB 26 

* PRINT FOR 5,2:#G2 


46360 VTAB 18 


: HTAB 1 

: PRINT SS;"NEW MEANS ? "; 

: GET RS 

> IF RS = “"Y" THEN 4960 
4040 IF R$ = "N" THEN 4170 


4056 IF R$ < > "N" THEN 4930 

4960 VTAB 12 
; HEAB 1 
; PRINT FS$;S$;"INTERARRIVAL ";SS$;"TIME (AUTO) "; 
Peaeur "RS 


4070 IF VAL (R$) = @ THEN 4119 


4980 IF VAL (R$) < = 1 THEN GOSUB 4599 
Goro 4060 


4999 IF VAL (RS) > 99 THEN GOSUB 4519 
* +: GOTO 4060 


4110 VTAB 12 


BEAS 1 
PRINT FS;S$;"INTERARRIVAL ";S5; "TIME (BUS) a 
mPor "2 RS 
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an ee aw ae ae eee eee aa ce ae ae aay cet cam Gt cee ae aa «aa? aa) a 


q_meameae ee aeeae ee ewe aes esx awe ee ee ewe ee ese ae ae ae as «ss 


IF VAL (R$) < 
GOTO 4119 


IF VAL (R$) > 
GOTO 41192 


a@peepbeaweaw ae aeiaeeiae@iee@ eae es ee ee as ee ee ae ae ae ae a 


apaeaweameae ee eweaewawase ew ee eew—iaeweeweaewe ese ose ow aw ae = 


HTAB 1 


4920 


IF SD = 
HTAB ll 
PRINT "Q i 
aa 9 

TAB ll 

PRINT "9 . 
VTAB 19 

Beeb 2 

peor POR 5,2; 
Views 19 
HTAB 35 
PRINT " 
VTAB 20 
HTAB ll 
PRINT "@ ‘ 
VTAB 29 

HTAB 21 

PRINT FOR 5,2; 
VTAB 29 
Hoae 35 
PRINT * 


1 THEN 


0.90" 


g.90" 


eM Ee Ee ae SE eS el 


GOSUB 182190 
Peet KXS;A5 1” 


feat = | THEN 
HTAB 1 
GOTO 1999 


(ele erly) 
(l - 1 / G2) 
EZ) 

VTAB 18 
#G1 
+G2 

VTAB 3 


ee ce ee ee ee ee ee ee ee ee i ee eee 
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=e PP oe ee ee ee eee eee eee ee ee oe 


HTAB 1 
PRINT FS;SS;:"“(VALUE MUST BE > 1)" 
FOR I = 1 TO 2986 
NEXT 
RETURN 
a516 VTAB 12 
: HTAB 1l 
Been FS>SS;"(INPUT VALUES < 196)" 
FOR I = 1 TO 2060 
NEXT 
RETURN 


18000 AS = CHRS (1) 
: BS = CHRS (2) 
CS = CHRS (3) 
DS = CHRS (4) 
ES = CHRS (5) 
FS = CHRS (6) 
Mou=  GERS (11) 
LS = CHRS (12) 
OS = CHRS (15) 
PS = CHRS (16) 
QOS = CHRS (17) 
SS = CHRS (19) 
VS = CHRS (22) 
WS = CHRS (23) 
Women CHRS (25) 
ZS = CHRS (26) 


mipeomenARs(i) = BS + ™ ABC" + CS + *" DEFGHI" 
19930 CAR$(2) = BS +” KLMNMPQ" + CS + " 

19640 DOTS(1) = "x" _ 

19050 DOTS$(2) = BS + "X" + CS + "X" + QS + DS 
19960 DASHS(1) = "y"” 

19070 DASHS(2) = BS + "Y" + CS + "¥" + QS + DS 
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aoe 
oe 
Sot 
br 
ac 


a Al 


190989 MINS(1) = "Zz" 
18898 MINS(2) = 
10190 DIAMS(1) = "1" 
10110 DIAMS(2) = BS + "x" CS + 
181290 DIAMS(3) = BS + "y" CS + 
19130 DIAMS(4) = BS + "Zz" CS + 
191490 DIAMS(5) = BS + "ji" CS + 
10158 DIAMS(6) = BS + "1" CS + 
19168 DIAMS(7) = BS + "1" CS + 
19170 DIAMS(8) = "2" 
19188 POKE - 16368,9 

Pret Zo OS :AS;:0S:DS;PS;AS%1" 
18198 HCOLOR= 3 

Meret l,32 TO 279,32 
10200 El = 4.48142012 

E2 = 5.48481495 

Gl = 5 

G2 = 6 

Ee= 1 

N=l1 

NN = 1] 

Eee, (61 + B2) 

R = 10090 

SD = 9g 

SPEED= 255 

TD = 4 

VT = Q@ 
19210 Cl = g 

C2 = Q 

Ml = @ 

M2 = Q 

T™T™ = 9 

TT = Q 
19220 GOSUB 250890 

— VoAB 6 
HTAB 1 
REM Mitte welcs SLRST EVEND 


Qs 
QS 
QS 
Qs 
Qs 
QS 


DS 
DS 
DS 
DS 
DS 


DS 
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B. MM1Q PROGRAM 


== a=e ae ae cee <6 ae ae ae ae ee ee ae ee ee ee ae ae? ae? ase 


18 GOSUB 1969909 
Gener INITIALIZE 


1990 IF TM = 38 OR TM = @ THEN POKE 37,( PEEK (37) + 1) 
* 3; PRINT CS 


mer Ir PEEK (37) > 15 THEN POKE 37,15 
1926 IF Tl = T2 AND Tl = @ THEN EVT = 1 
Pee GesUB 15008 
feseGcoen) 1109 
messi SYS < > 0 AND Tl = 8 THEN EVT = 2 
fo GOSUB 1500 
E> GOTO 1100 
feeeenome aA DEPARTURE EVENT 
geo SF T2 = @ THEN EVT = 3 
eee: GOSUB 1599 
SacoeGon@ 1100 
* :; REM AN ARRIVAL EVENT 


— ap ae cep ae cep ae ee eee oe oe ee ee eee ee eee eo ee eee ee 


1969 IF TM / 60 = INT (TM / 60) THEN PRINT MINS (L); 
ZeowGon® 1090 

19076 IF TM / 5 = INT (TM / 5) THEN PRINT DASHS (1); 
Soon 1090 


NEAT 
Menmereso,( PEEK (36) + 1) 
moo sae = T2 - il 
meee oe< > © THEN T1 = Tl - 1 
* : REM IF NO ONE IS IN SYSTEM THEN CAN'T HAVE A DEPARTURE 


eo ve= TM + 1 
-1F TM = 68 THEN TM = @ 


1120 IF PEEK ( - 16384) > 127 THEN GOSUB 30909 
peewee AeY PRESSED TO STOP CLOCK 
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: @ 
,eAOk = OT / TT 
mero > 32765 THEN PRINT Yo° Bs 
PronGoro 1g 
1140 IF SD = 1 THEN CH = PEEK (36) 
pees) CVe= PEEK (37) 
Sec pent YS;AS"2" 
* : VTAB 19 
* +: HTAB 7 
Zee PRINT TT 
* : VTAB 29 
“ee HTAB 35 
feet, FOR 5,2; #A0L;:AS"1" 
* =: GOSUB 2762 
Geer ene 36,( PEEK (36) - 1) 


P51¢ IF EVT = 1 THEN PRINT DIAMS (1); 
* : GOTO 2000 
1520 K = EVT 
: IF EVT = 3 THEN K = 5 
1530 IF TM / 69 = INT (TM / 60) THEN PRINT DIAMS(K + 2); 
* : GOTO 29000 
1544 IF TM / 5 = INT (TM / 5) THEN PRINT DIAMS(K + 1); 
* : GOTO 20690 


2yo0 CH = PEEK (36) 
meeve- PEEK (37) 
PRINT YS 
IF EVT = 2 THEN 2466 


2899 REM ARRIVAL EVENT ROUTINE 


woem@meook > 25 AND EVT = 1 THEN SYS = SYS + l 
* ; GOTO 2400 


Pe vembemsokl > 25 THEN SYS = SY¥S + l 
cs Gong 2600 


5d 








me20 IF N = 9 THEN 2160 


teeth = 27 —- SOL 
weeteoto = 8 THEN DIST = 29 - SOL 


2150 VTAB 3 

HTAB (X) 

PRINT BLNKS; 
VTAB 3 

HTAB (X + 1) 
PRINT MANS (4); 


S28Bh es eb oS 8 oS aR ee ae aS ae ae ae ae ee ee ee a a ae a 


2418 X = 29 


24280 GOSUB 2899 
evtes 3 
BoA. 37 
PRINT CLRS; 
Meee oeYs = SYS - l 
Suelo eoro = @ THEN L = l 


gea0 sir SYS < 13 THEN SOL = SOL - 2 


2456 IF N = @ OR SQL = 3 THEN 26800 
2469 VTAB 3 
Pee. 20 
PRINT BLNKS 
X = 26 
Pisa. = 29 
GOSUB 23800 
VTAB 3 
Bees 29 
PRINT BLNKS 
VTAB 3 
HTAB 39 
PRINT MANS (4) 





eee eo ae oe eee cee ae eee ae? ce ame ame ae a a oe a Ge Ge aoe 
oe oe oe oe oe oe oe ee ee oe oe ee oe oe ee oe ae a a 


2490 FOR I = 2 TO SQL / 2 
> IF X < 1 THEN 26909 
25800 VTAB 3 
7 AaB (XxX) 
: PRINT MANS(1); 
mocks = | TO 5G 
> NEXT 
: VTAB 3 
>: HTAB (X + 3) 
> PRINT MANS (4); 
7 vas 3 
emacs (xX) 
; PRINT BLNKS; 
> X = X - 2 


26090 QL = SYS - l 
eeoeoro — 2 THEN OL = 


* ; HTAB 19 


—_ ae am ae eee eee ame ee eee ame oe oe oe ae ee ee ee a ae a= 
pees @ awe aeweewawe at ease ew ae ae ae ae ae ae ae ae ase a? as 


Pao T= — El * LOG ( RND 


eget = = E2 * LOG ( RND 


27690 VTAB 7 
> HTAB 5 

PRINT VS; 
VAs 17 
HTAB 30 
PRINT WS; 
POKE 36,CH 
Bee 37,CV 


9 


a) 


Ry) 


i 
NJ 





POKE 36,( PEEK (36) + 1) 
RETURN 


GOSUB 282@ 
I = 2 
GOSUB 2829 
>: X = X + 1 
- I= 3 
> GOesSUBsB 2829 
IF X < DIST THEN 2866 


Boe20 VTAB 3 
Pome (xX) 
: PRINT MANS(I); 
Berke) = 1 TO 2 
NEXT 
RETURN 


3000 CH = PEEK (36) 
oeevm=— PEEK (37) 
3916 IF PEEK ( - 16384) = 211 THEN R = 166@ 
Za Gore 3210 
* +: REM RUN CLOCK SLOW 
3620 IF PEEK ( - 16384) = 198 THEN R = l 
fae Gore 3210 
* 3; REM RUN CLOCK FAST 
3936 IF PEEK ( - 16384) = 266 AND N = @ AND SD 
G 
* ; PRINT PS 
= -'GORO 3210 
* : REM SHOW STATS DISPLAY ONLY 
3046 IF PEEK ( - 16384) = 206 THEN N = 9g 


pos Geno 3216 
* ; REM SHOW ALL BUT CHARACTER ANIMATION 


3650 IF PEEK ( - 16384) = 217 AND NN = 8 THEN NN 
~*~: TM = 9 
~ CV = 3 
* CH = @ 
. GOTO 3210 
* MeeelN DISPLAY ONLY MODE; BRING BACK TIMING 


5 


1 THEN NN 


i 
+--+ 


wt a abe a all 


; 
 *y 


— | 
2 a 
a | 7 


7 : 


- 
a Ea 


an _ 
7 : 
a 





meow «WE PEEK ( —- 16384) = 217 THEN N = l 
* : GOTO 3682 
* : REM NOT SHOWING CHARACTER ANIMATION; BRING IT BACK 
3070 IF PEEK ( - 16384) = 196 THEN SD = l 
* ; GOSUB 3509 
* ; GOSUB 2760 
=: GOTO 3219 
* :; REM SET DISPLAY MODE 
3080 IF PEEK ( - 16384) = 207 AND NN = 1 THEN SD = @g 
* ; PRINT ZS 
* : VTAB 18 
* HEAB 1 
See ommnr FS+O5;TS;AS*1" 
* ; GOSUB 2769 
me GOLO 3210 
* REM TURN OFF DISPLAY 
3090 IF PEEK ( - 16384) = 195 THEN POP 
* ; GOTO 48604 
* : REM CHANGE PARAMETERS 
3190 IF PEEK ( - 16384) = 205 THEN PRINT ZS;0S;8B5S 
te. VTAB 4 
aoe ita 32 
Sees) PRINT CLRS;:ZS 
* : PRINT CHRS (4);"RUN MENU” 
3119 IF PEEK ( -—- 16384) = 200 THEN PRINT ZS 
* : PRINT CHRS (4);"RUN QUEUE HELP" 
3129 IF PEEK ( -—- 16384) = 289 THEN POKE - 16368,9 
* ;: PRINT YS;0S$;:8S 


. VTAB 4 

Roe Hie 3 2 
Sweet CLRS;ZS;Ps 
was; END 


PeeoOmerGse= PEEK (115) + PEEK (116) * 256 
31490 IF PEEK ( - 16384) = 177 THEN PRINT ZS;0$;8S 
Se Vas 4 
es AB 32 
> es PRONT CLRS: ZS 
* +: PRINT CHRS (4);"BLOAD POISSON.SET,A",CS 
* : PRINT CHRS (4);"RUN POISSON PROCESS" 
3158 IF PEEK ( - 16384) = 179 THEN PRINT ZS;05;85S 
~ =: VTAB 4 
Temes 32 


54 








Pe BReeONT CLRS;ZS 
* : PRINT CHRS (4) 
* : PRINT CHRS (4) 


anRpanpbanpeanmeanmeaeeae eae eae eae ae ee ae ae aR ee ae ee a a» a» 


3166 IF PEEK ( - 16384) = 188 THEN PRINT Z$;0$;B$ 
k. 
-: 
+ 
~ 
* 


"BLOAD DAM.SET,A",CS 
"RUN DAM MODEL" 


=e ®e 


VTAB 4 

HTAB 32 

PRINT CLRS$;2Z$ 
: PRINT CHRS (4) 
: PRINT CHRS (4) 


=> a ap ep aw ow am em ss om aoe cep oe am ae ss ae Ss ae == 


"BLOAD DAMAGE.SET,A",CS 
"RUN DAMAGE MODEL" 


=e we 


Haas 32 

Pree: CLRS;ZS 
PRINT CHRS (4) 
PEENT CHRS (4) 


poo) IF PEEK ( = 16384) < > 160 THEN 3216 


neeaDbDabanbp aD ee awae® 22 a@ oe oe ae ae a SS] a a ae a® =a» 


17@ 

* : VTAB 4 
x 

* 

x 

* 


eS LOADeelodscahy A.) Cs 
"RUN FISHPOND" 


=e 


Mieesk ( = 163684) = 18] THEN PRINT ZS;0S;BS 


See  lrerPEEK ( — 16384) = 168 THEN POKE - 16368,8 


* : REM CLOCK STOPPED TO PAUSE 
3200 IF PEEK ( - 16384) < > 168 THEN 3206 
* : REM AWAITING SPC BAR TO RESUME 
3210 POKE - 16368,2 
sePORE 36,CH 
- POKE 37,CV 
> RETURN 


aR eaDbDeanD aD ae ae ae oP ae a 2 @e® 22 22 ae ea oe 22 22 == == 


35606 PRINT YS 

: VTAB 19 

: HTAB 1 
PRINT AS"2";SS;"TIME= ";TT 
VTAB 264 
HTAB 15 
PRINT SS;"Q#= ";QL 
VTAB 20 
HTAB 27 
PRINT SS;"AVG ";SS;"Q#= ";KS; 
PRINT FOR 5,2;#AQL;AS$S"1" 
RETURN 


apap ap 2 eo ap em em eo ew ee oP a oe 28 ee oe 2882 oe ee == 


2600 PRINT YS; 
—sopet = 1 TO 30 STEP 2 
vras 3 


a5 





HTAB (TI) 
PRINT BLNKS; 
NEXT 


ee ee 


3620 VTAB 3 
: HTAB 396 
: PRINT MANS (4) 
Sos60 IF SOL > 2 THEN X = 26 
[eceeroR J = 4 TO SOL STEP 2 
* : VTAB 3 
Ses at aAB (xX) 
* : PRINT MANS (4); 
ke 
* 


3640 POKE - 16368,2 
- VTAB 7 
2 SAB 5 
; PRINT VS; 
>: VTAB 17 
: HTAB 390 
: PRINT WS; 
-ReeOKE 36,Cd 
: SPOKE 37,CV 
: RETURN 


4990 PRINT AS"2";PS$ 
peeOnRE — 16368, 


Peneee 1 
meereeNe So; "PRESENT “;SS:"MEANS;°;CS;SS; "SERVICE %;SS;"T 
Mie eo, 59; “INTERARRIVAL §;S53; “TIME” 


> GHTAB 19 
S@ee0Nt cOR 5,2;4Gl 
: VTAB 190 
-hfeas 19 
>: PRINT FOR 5,2; #G2 
49390 VTAB 12 
>: HTAB 1 
Seeeent SS> "NEW “;SS;"MEANS ? ";KS; 
: GET RS 
Meee RSs = “YY THEN 4960 





49490 IF R$ = "N" THEN 4178 





4960 VTAB 14 


HTAB 1 
PRINT SS;"SERVICE ":SS;"TIME abs 
INPUT "":RS 


49860 IF VAL (R$) < = 1 THEN GOSUB 459@ 
* : GOTO 46960 

mo90 FF VAL (RS) > 99 THEN GOSUB 4518 
f—: GOTO 4060 


4118 VTAB 14 
: HTAB 1 
>: PRINT FS;S$;"INTERARRIVAL ";SS;"TIME "; 
serENeUT ."."-RS 


41390 IF VAL (RS) < = 1 THEN GOSUB 4590 
ee: GOTS 4110 

414@ IF VAL (RS) > 99 THEN GOSUB 4519 
* : GOTO 4119 


4188 PRINT PS;YS$ 
- IF NN = 1 THEN FOR I = 1 TO 38 STEP 2 
tet LAB 3 
ce TAB (1) 
* ;: PRINT BLNKS 
* NEXT 


4199 IF SD = 1 THEN VTAB 19 


iy 
~.J 





HTAB 7 

PRINT "@ : 
VTAB 29 

HTAB 19 

PRINT "@ 3 


+* + + + + + 4 


—_ a ae ew eee a ee eee OP Pa eee ee Se GP GP a a a ae ae 


42900 IF NN = 1 THEN PRINT AS"1" 
fe. GOsUB 10258 
x 
s 
* 


Ga = 1 
Cy = 7 
GOTO 19989 
4219 GOSUB 19259 
> GH = 1 
CV = 7 
GOTO 1999 


4590 VTAB 14 
2 has l 
Prat FS;SS;"{VALUE MUST BE > 1)” 
FOR! = 1 TO 2608 
NEXT 
VTAB 14 
HTAB 1 
PRINT FS 
RETURN 
4519 VTAB 14 
>: HTAB 1 
PRINT FS;S$;"(INPUT VALUES < 199)" 
POR i = 1 TO 290090 


9999 REM INITIALIZE SUBROUTINE 


19999 AS = CHRS (1) 
Mesasoe= CHRS (2) 
@Gom= CHRS (3) 
Dome ches (4) 
pom CHRS (5) 
Hom-) CHRS (6) 
KS = CHRS (11) 
ome > CHRS ) (12) 
OS = CHRS (15) 





PS = CHRS (16) 

mes = CHRS (17) 

: SS = CHRS (19) 

meno = CHRS (29) 

VS = CHRS (22) 
: WS = CHRS (23) 
: Y$ = CHRS (25) 
ZS = CHRS (26) 

19019 DIM MANS (5) ,DOTS (2) ,DASHS (2) ,MINS (2) , DAMS (7) 
19020 MANS (1) = 85 +" A" + CS +" BCT + CS +" DET + Os 
10030 MANS(2) = 86 +" ROT + C+" HIT + Co + * OKY + DS 
10049 MANG(3) = BS 4 LM * + CS + *NORY + CS + OR * + DS 
19050 MANS(4) = 85 + "S" + cS + "T+ cS + "UM + DS 
10069 MANS(5) = BS + "22" + CS + "22" + D5 
19078 DOTS (1) = BS + "VT + CS +" * + 08 +05 
19989 DOTS(2) = BS + "VY" + cS + "VY + QS + DS 
19090 DASH (1) = 88 + "WY + cS +" + OS +05 
19103 DASHS(2) = BS + "W" + C$ + "WY + QS + DS 
19110 MINS(1) = 89 + "x" + CS +" + OS + DS 
10129 MINS (2) = 85 + "X" + CS + "X" + QS + DS 
10130 DIANS(1) = BE + "Y" + CS + "LT + 98 + DS 
20149 DIAMS (2) = 85 + TY" + CS + "LT + 98 + DS 
10150 DIANS(2) = 88 + "WT + CS + "1" + 08 + 08 
19160 DIAMS (4) = 85 + "XT + C8 + "1" + OS + 25 
19178 DIAMS(5) = 58 + "Y" + CS + "WV" + QS + 08 
10180 DZANS (6) = 88 + "Y" + CS + “WT + QS + Ds 
19190 DIAMS(7) = BS + "¥" + C$ + "X" + QS + DS 
logo curs = aS +" T+ CS +t THs HN ta DS 
aalo SINKS = aS +" "+ CS+* THOS +t "HDS 


ae, 





16228 POKE - 16368, 
wee 38 PROMPT Z757/05;BS;AS™1" 
POR £ = 1 TO 38 S eee 
VTAB 4 
ETASB I 
PRGST CLRS; 
NEXT 
VTAB 4 
HTAB 32 
PRi@d MANS (5) ;0$;AS70$S;DS;Ps 
VTAB 4 
HTAB 32 
BRoMm@ MANS (5);0$;TS 
HCOLOR= 3 
HPLOT 1,46 TO 279,40 
48142012 
~-48481495 


R = 1000 
SPBED= 255 


19260 GOSUB 27399 
[a7Tas 4 
AaB i 
Foam @NETIALIZE FIRST £2VENT 


32/8 RETURN 


69 





C. DAM MODEL PROGRAM 


19 GOSUB 19999 
>: REM INITIALIZE 


moo 2 = .159 =— (Y —- 97) * .98258 
: seein 279 — 32.8 * ({{ = LOG (6.28 * Z)}y = 35)) 
iemece—ee  ~ ( INT (X / 2)) THEN X = X + 1] 


2000 IF PEEK ( - 16384) > 127 THEN GOSUB 3989 
Pmertienny, PRESSED TO STOP 


PESUP = | THEN 2399 


Pyevueet= Y > 156 THEN FOR J = 1 TOR 
oe se NEXT 
E: GOTO 21486 


> IF ¥Y < = 158 THEN HPLOT 1,156 TO 34,1590 
= 2 HCOLOR= 6 
[mnemOor t,156 TO 34,150 
* ; HCOLOR= @ 


Paci they) < 115 THEN HPLOT (45 + (114 - Y) 
Eee OLOR= 5 


~ 


Re AO) CP Ne 


61 








oemoeeeT 46,114 TO 36,15¢ 
feces 35,151 TO 2,156 


apeamt =e am ee ee ae eee eee eee ee ee ee eee eee ee eee ee oe 


Peaoes TE Y = lil THEN HPLOT 45,114 TO 35,15@ 


Mose iF Y < 138 AND Y > = 115 AND LVL 
Ay,il 

> HEOLOR= 5 

ceo A + 2,Y TO 279,Y 


5 THEN GAP LOiyor,y 16 


HCOLOR= g 
LVL = 9g 


2190 IF Y < 143 AND Y > = 138 AND LVL 


2 THEN “HPEOT- ol, 7-10 


: HCOLOR= 5 
Peon XxX + 2,Y TO 279,Y 


feeegeeeleey > 158 THEN HPLOT 1,Y TO 34,Y 


2129 meres = 143 THEN HPLOT 61,Y TO X,Y 
* : HCOLOR= 


2168 IF PEEK ( - 16384) > 127 THEN GOSUB 3900 
PeeeomeeneY PRESSED TO STOP 


2199 REM INFLOW PLOT ROUTINE 


‘Hees 1 
wecReNT CLOUDS (1 ) 





mee 6 ORUh6Elh6v= «61 CTO (15 
Seas 1 
pea taAS TT 
weoreNT CLOUDS (15) 
o NEXT 


meeG FOR I = 1 TO 3 
>: VTAB 5 
HTAB 21 
PRINT LIGHTS 
VTAB 5 
HTAB 21 
PRINT LBLNKS 
NEXT 
VTAB 5 
HTAB 21 
PRINT LIGHTS 
FOR I = 1 TO 809 
NEXT 
>: VTAB 5 
: HTAB 21] 
> PRINT LBLNKS 
2256 IF Tl > 15 THEN FOR I = 1 TO 886@ 
NEXT 
* Home: = |. TO 3 
* VTAB 5 
* HPAB 21 
* PRINT LIGHTS 
* VTAB 5 
* HTAB 2] 
* : PRINT LBLNKS 
* : NEXT 
* 
* 
* 
* 
* 
x 
* 
*« 


ares 5 
: HTAB 21 
: PRINT LIGHTS 
FOR I = 1 TO 849d 
NEXT 
VTAB 5 
HTAB 21 
PRINT ULBLNKS 


reo 
‘a 
> 
ve 
ty 
a 


PRINT RAINS 





=e ee ee ee’ ee ae ee ee ae? 22 aw = ae =a 


HCOLOR= 6 

FOR I = 9 TO Tl - 1 
GosuB 1900 

FOR J = 1 TOR 
NEXT 


ee eepee e282 28 Pe ee ee ae ae = 4. =D 
=> oe ee ce ee ee ee ae ee ee ee oe 


ieee < 115 
HCOLOR= 5 
memo A + 2,Y¥ TO 279,Y 
HCOLOR= 6 


Weert - il 
LVL = 9 
ere 61S THEN HPLOT 47,114 


HPLOT 46,114 TO 36,159 
Deon 52,252 TO 2,156 


= op ee ee ae ee eee ee ee ae ee 
— ae ae ee ee ee ee ee cee ee ee eee ee 


fee. << 130 AND Y > = 115 AND 
Aye 

HCOLOR= 5 

Hobos + 2,Y TO 2/9,Y 

HCOLOR= 6 

LVL = @ 

ee y — 1 

IF y < 143 AND Y > = 130 AND 
opt 

HCOLOR= 5 

Peweoten + 2,Y TO 279,Y 

HCOLOR= 56 

LVL = @ 

rae = dL 

Mom 150 THEN HPLOT (15/7°= 


meee > = 143 THEN HPLOT 61,Y 
HCOLOR= 5 


Geen; HPLOT (457+ (114 = yy) ~ 


ers? od 


Hors >, 050 


LVL 3 THEN HPLOT 


LVL 2 SAW an) Vols OMk 


Wo = Soyer TO 347 


TiO> on 2 


Zig LO ey 


61,Y TO 


617 Yere 





sMeLOT X + 2,Y TO 279,Y 
: HCOLOR= 6 


== aes eee eee aap GP ae GP 28D GD D> DP em SS ee ae a em as aD 
—_ ae ee Se ce ee ee eee ee ee oe ee ee ee 
=—— am ce ee OD eee ee eee ee eee eee eee ee ee eee ee ee a oe 


: HTAB 16 

>: PRINT RBLNKS 
“one = | TO 100 
> NEXT 


meee 6 6FOR IT = 15 TO 26 
; VTAB 1 
Hues 1 
wee eile. CLOUDS (15) 
2 NEAL 
2526 FOR I = 27 TO 40 
>: VTAB 1 
HTAB I 
PRINT CLOUDS(I - 11) 
NEXT 


a ae ee ee ee ee ee ee ee ee eee ee 


28980 T = =- 5 * LOG ( RND (1)) 


—— > ae ae Se ee ee ee eee eee eee ee ee ee eee 


Zee) Te= = 5 * LOG ( RND (1)) 


2840 IF INIT 1 THEN RETURN 


— a ee aD SD ee ee ee ee ae em ae em > ee ee a em ee oD 


ee =e ae ae oe ee ee ee cee Pe > ee em em Se oe eo oD 


oes CLOCK STOPPED, FIND: OUT WHY 


BEVOONSIESPEEK ( — 16384) = 211 THEN R = 1099 


a-rGenro 3160 
* +: REM RUN CLOCK SLOW 


a — : 





3010 IF PEEK ( - 16384) = 
* : GOTO 3160 
* : REM RUN CLOCK FAST 
3020 IF PEEK ( - 16384) = 


* : DWN = @ 
eee GOTO 31692 
* ;: REM WATER INFLOW ONLY 


Bpyow IF PEEK ( - 16384) = 196 


* : DWN = 1 
* =: GOTO 3160 
* : REM WATER OUTLOW ONLY 


4 

* : DWN = @Q 

es -9GoOro 31560 
* 


REM RESUME NORMAL IN/OUT 


Boo ee PEEK ( = 16384) = 2985 
Pee cRiNT CHRS (4);"RUN MENU" 


198 


a 


Ceewotereee kK { = 16384) = 206 


THEN 


THEN 


THEN 


THEN 


FLOW 


THEN 


3860 IF PEEK ( - 16384) = 290 THEN 
See ee RIN? CHRS (4);"RUN DAM HELP" 


veh PERK ( — 16384) = 299 THEN 
* 


: PRINT Y$;P$;ZS 
* ;: END 


Bvigee CS = PEEK (115) + PEEK 


= oa om oe ee ee ee ee eee ee ee ee 


(116) 


R= 1 

UP = 1 
UP = 9 
UP = 9 
PRINT ZS 
PRINT ZS 


PORE = 


220 


16368,9 


3099 IF PEEK ( - 16384) = 177 THEN PRINT ZS 
foe CoRs (4);"BLOAD POISSON.SET,A",CS 
Beeceee RUN? CHRS (4);"RUN POISSON PROCESS" 


3190 IF PEEK ( - 16384) = 178 THEN PRINT ZS 


PemeouimechRkS (4);"BLOAD QUEUE.SET,A",CS 
* ; PRINT CHRS (4);"RUN MM1Q" 


3113 IF PEEK ( - 16384) = 180 THEN PRINT ZS 
“ee Peinme CHRS (4);"BLOAD DAMAGE.SET,A",CS 
ees) PRINT CHRS (4);"RUN DAMAGE MODEL® 


3129 IF PEEK ( - 16384) = 181 THEN PRINT ZS 
ceereeami Chore (4);>"BLOAD FISH.SET,A”,CS 
* : PRINT CHRS (4);"RUN FISHPOND" 


3130 IF PEEK ( - 16384) < > 160 THEN 3169 


3149 IF PEEK ( - 16384) = 16@ THEN PCKE - 


meee CLOCK STOPPED TO PAUSE 


16368,2 





Boo «ITF PEEK ( - 16384) < > 169 THEN GOTO 3159 
* : REM AWAITING SPC BAR TO RESUME 
Blog POKE —- 16368,2 
: RETURN 


9999 REM INITIALIZE SUBROUTINE 


199008 AS = CHRS (1) 
: BS = CHRS (2) 
CS = CHRS (3) 
Bou— CHRS, (4) 
Mom——CHRS (11) 
LS = CHRS (12) 
pom —rGHks (16) 
OS = GHRS (17) 
SS = CHRS (19) 
YS = CHRS (25) 
ZS = CHRS (26) 


Movye20 CLOUDS(1) = BS + * " +cs +" " + cS + LS + "“A™ + CS + 
ot) a +} KS ae DS 

Mmoes8  CLOUDS(2) =3ss +" " + cs + "Oo" + CS + "Z" + LS + "A™ + 
CS + "CE" + KS + DS 

mae@4¢@ CLOUDS(3) = BS +" " + cS + “po"™ + cS +" Z" + LS + "A" 
+ CS + "DCE" + KS + DS 

1935@ CLOUDS (4) = BS st tt tt _ CS + rOPO™ ce CS st Ny dg st L$ se 
A" + CS + "DDCE" + KS + DS 

19969 CLOUDS(5) = BS + "H"™ + CS + "NOPQ" + CS + "XY Z" + LS + 
"A" + CS + "DDDCE"™ + KS + DS 

19976 CLOUDS (6) = 3$ + "GH" + CS + ™ NOPQ"™ + CS + "WXY Z"“ + L 
S + "A" + CS + “"DDDDCE”" + KS + DS 

19989 CLOUDS(7) = BS + "FGH" + CS + “ NOPOQ" + CS + " WXY Z" 
+ LS + "A" + CS + "DDDDDCE" + KS + DS 

18898 CLOUDS(8) = BS + "EFGH" + cS + " NOPQ" + CS + " WKY 
Z"™ + LS + “A™ + CS + "DDDDDDCE" + KS + DS 

19188 CLOUDS(9) = BS + "DEFGH" + CS + ™M NOPQ" + CS + "V WwW 
me" > ES + "A" + CS + MCDDDDDDCE” + KS + DS 


19119 CLOUDS (19) = BS + "CDEFGH" + CS + "LM N@PO = eon 


OY 
~J 





ieee 2 + LS + PA" + CS + “CCDDDDDDCE™ + KS + DS 


-— asm eee cee cee cee cee cee cee cee eee cee eee cee ee cee ee cee ee eee ee 


191298 CLOUDS(11) = BS + "BCDEFGH" + CS + "KLM NOPO® + CS + 
a VeeWAY 2" + LS + "A"™’+ CS + "CCCDDDDDDCE” + KS + 


DS 


elss CLOUDS (12) = BS + "ABCDEFGH" + CS + "JKLM VOPO = es 


Tone vmnnxy 2" + £5 4+ "A" 4 :-CS + "CCCCDDDDDDCE" + 
KS + DS 

momag CLOUDS (13) = BS + “ ABCDEFGH" + cS + "IJKLM NOPO" + C 
Pact y | WXY 2" + 7S + "A" +-CS + "CCCCCDDDDDDCE 
a _ KS se DS 

mots CLOUDS (14) = BS + " ABCDEFGH" + CS + " IJKLM NOPQ" + 


@oet -RSTU V WXY Z" + LS + "A" + CS + “"BCCCCCDDDDD 


DEE + KS + DS 


motos CEOUDS (15) = BS + " AB @DInNGIA 7 fe Gomer mel Jie 


NOPQ" 


oem Rol Vo WXY 2° + 5S + "A" + CS + ~ BCCCCCD 


EBDDDCE” + KS + DS 


—e a eee cee ee eee ae ae ae ae am a ae ae aa PP ee ee ee ee 


19179 CLOUDS(16) = BS + "“ ABCDEFGH" + cS + " Ponoleh NOPQ" 
+ CS + " RSTU V WXY Z" + LS + CS + " BCCCCCDDDDDDC" 
+ KS + DS 

18180 CLOUDS$S(17) = BS + " ABCDEFGH"™ + CS + " IJKLM NOP" 
+ cS + " RSTU V WXY " + LS + CS + " BCCCCCDDDDDD" 
+ KS + DS 

19198 CLOUDS(18) = BS + " ABCDEFGH" + cS + " eee No" + 
es +)! RSTU V WXY" + LS + CS + ™ BCCCCCDDDDD" + KS 
+ DS 

182890 CLOUDS(19) = BS + ” ABCDEFGH" + CS + " LJKLM ~ 
@so- ' RSTU V WX" + LS + CS + * BCCCCCDDDD" + KS + 
DS 

moze CLOUDS (28) = BS + " ABCDEFG" + cs + " Loni + CS 


PmeoeRSTU VY W" + LS + CS + “ BCCCCCDDD" + KS + DS 


== oem cee oem cee cee cee cee cee cee cee cee eee eee ee ee ee 


19220 RAINS = BS + L$ + “OFGMGFPOFGMGFP" + CS + "QNFPFFSONFDF 


FS" + CS + "QQRSRORQORSROR" + KS + DS 


mesg 7CLOUDS (21) = BS + "* ABCDEF" + cS + " IJKLM " + CS + 
ieacrtiy vy ' + LS + cS + * BCCCCCDD" + KS + DS 

m2 agmeereips (22) = BS + *™ ABCDE see. CSteo™ TGKEM-* + CS. eo" 
Bepiumyeta+ LS + CS + “ BECCCCCD” + KS + DS 

1925@ CLOUDS (23) = BS + " ABGD. 4+ °CS + ". IJKEM?)—CSet 2 2 
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SU Ve s+ LS + CS + ™ BCCCCC™ + KS + DS 


qemiat SS ae Se Se ae ae ee ee eee ee ee ee ee oe 


19268 CLOUDS (24) = BS + " DGS Comt  GihIKe ate cs +." sae. 
uU ™ + L$ + CS + * BCCCC™ + KS + DS 

10278 CLOUDS (25) = BS + " ABE 4) CS) + 2 IK" + ES Fe eRSTU 
+ L$ + cS + “™ BCCC" + KS + DS 

meer ehOupS(26) = BS +" A" +c$ +" rg" + cS + ™ RST" + 
L$ + CS + " BCC" + KS + DS 

16296 CLOUDS (27) = BS + " WreeS + OP CS ORS +s LS 
+ CS + " BC" + KS + DS 

18300 CLOUDS(28) = BS +" "4+ cS +" “ + CS + " R" + LS + C 
S + | | B" + KS 4 DS 

193190 GEOUDS (29) = BS ae ne Es eM Gs + wu wy eS oun 
+ DS 


19320 RAINS = BS + LS + "“OFGMGFPOFGMGFP" + CS + “QNFPFFSONFPF 
FS" + CS + "“QQRSRORQORSROR" + KS + DS 


aeea@eewamtbawtawtawtawt ae at at ae at ae at at SS ae at = ae 


$0330 LIGHTS = BS + LS + “HI™ + CS + "JK" + CS + “L" + KS + D 


S 
19340 RBLNKS = BS + “ Yas iE 
[MoOONESENKS = BS +" "“+cCS +" “+cCS + ™ " + DS 


198360 POKE - 16368,90 
meee 25>057AS;0$;DS;P$;AS,"2° 
: VTAB 3 
wane. 1 
Pech SS- ONE ";-SS;"MOMENT ";SS;>"PLEASE...";KS 


— = =P ae ae ae ame oe ame ae aee Se eee ee oe eee ae ame ee oe 


19370 PRINT CHRS (4);"BLOAD DAM.PIC,AS2006" 


>: R = 750 
SPEED= 255 
Wee 39 


— oe ee ee ee es ee es es ee ee ee ee ee eee eee oe 


1464698 INIT = l 


PNG = 9 


19419 RETURN 





D. DAMAGE MODEL PROGRAM 


19 GOSUB 1980¢ 
>: REM INITIALIZE 


1099 feet = TT) THEN Y = Y — INC 
cecuspee yY < = 55 THEN 
* ; GOSUB 293090 
“=: X = 14 
eeceec—) 5) 
* GOTO 1909 


1310 IF T = Tl AND Y > 55 THEN GOSUB 2990@0 
* : GOTO 10699 
mI20° HPEOCT X,Y 
oe + Cd 
> Trex > 265 THEN X = 14 
19390 IF PEEK ( - 16384) > 127 THEN GOSUB 39909 
* : REM KEY PRESSED TO STOP CLOCK 


ee ee ee ee Se eS eee eee eee ee ee ee ee ee ee ee ee eo oo 
—_— =P eee ee ee ee ee ee ee 2 ee ee Se ee ee es oe ee oe oe oe 
— ow ow ee es ee ee ee ee ee ee ee ee oe 
ew ew ee ee ee 2 ew 2 2 2 2 2 es ee ee se 2 ae 2 se 
ee ee eee eee ee ee ee ee ee ee a ee ie a se Se Se 


29019 FOR I = 1 TO INC 
: HPLOT WxX,WY 
: WX = WX - 2 
>: IF WX = 83 THEN WY = WY - 2 
~ 3: WK = 193 
* : IF WY = 9 THEN 29390 


2289 VTAB 7 
epee A / 7 + 1 
Pay 7 
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° 
* 


HCOLOR= 1 

HPLOT 13,48 TO 266,48 
HCOLOR= 5 

men © = 13 TO 266 STEP 5 


HeLOT 1,55 
NEXT 
HCOLOR= 3 


NOt = 1 TO 12 
J = PEEK (SS) 


Kemer = 1 TO 3 

PRINT SEESAWS (I); 

BG@aed = | TO 599 

NEXT 

PRINT BLNKS; 

NEXT 

PRINT SEESAWS (4); 

FOR I = 1 TO 3000 

NEXT 

PRINT BLNKS;SEESAWS (@); 


heats ~ LOG ( RND (1)) 


Teae- 16 * LOG ( RND (1)) 


VTAB 7 

Bae Xf 7 + 1 
PRS + "Z° + KS 
HCOLOR= 1 

Heter 13,48 TO 260,48 
HEGEGR= 5 

B@nwie = 134 10 266 STEP &S 
Me bOT £,55 

NEXT 

HCOLOR= 3 

VTAB 8 

HTAB 3 

BeeENT VS; 





VTAB 19 

: HTAB 36 

: PRINT WS; 

= BRINT PS;yYS 
WX = 1903 
WY = 29 
RETURN 


3006 IF PEEK ( - 16384) = 209 THEN POKE - 16368,9 
* : PRINT YS;PS$;2ZS 
ae Si 
3919 IF PEEK ( - 16384) = 285 THEN PRINT ZS 
* :; PRINT CHRS (4);"RUN MENU" 
3920 IF PEEK ( - 16384) = 2080 THEN PRINT 2S 
* : PRINT CHRS (4);"RUN DAMAGE HELP" 


3049 IF PEEK ( - 16384) = 177 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD POISSON.SET,A",CS 
* +: PRINT CHRS (4);"RUN POISSON PROCESS" 

3050 IF PEEK ( - 16384) = 178 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD QUEUE.SET,A",CS 
* : PRINT CHRS (4);"RUN MM1Q" 

3060 IF PEEK ( - 16384) = 179 THEN PRINT ZS 
* +: PRINT CHRS (4);"BLOAD DAM.SET,A",CS 
* : PRINT CHRS (4);"RUN DAM MODEL" 

30708 IF PEEK ( - 16384) = 181 THEN PRINT ZS 
* : PRINT CHRS (4);"BLOAD FISH.SET,A",CS 
* : PRINT CHRS (4);"RUN FISHPOND" 


Boson Le PEEK ( = 16384) < > 160 THEN 3112 


3090 IF PEEK ( - 16384) = 16@ THEN FPOKE - 16368,9 
eee eee LOCK STOPPED TO PAUSE 


3190 IF PEEK ( - 16384) < > 1690 THEN 3:99 
* : REM AWAITING SPC BAR TO RESUME 


31190 POKE - 16368,9 
: RETURN 


F2 








18880 AS = CHRS (1) 
: BS = CHRS (2) 
CS = CHRS (3) 
DS = CHRS (4) 
KS = CHRS (11) 
LS = CHRS (12) 
PS = CHRS (16) 
OS = CHRS (17) 
VS = CHRS (22) 
WS = CHRS (23) 
YS$ = CHRS (25) 
Zo) = CHRS (26) 


=> a ee ce ee es ee ee ee ee ee ee es ee ee ee 


19828 SEESAWS (9) = BS + " ee ees. +" " + CS + "89¢Q 
ABA" + CS + " JKLMNOP ABA" + cS + " 
RSTUVWX" + QS + DS 
18830 SEESAWS (1) = BS + "456" + CS + "GHG" + CS + "DEF 
ABA" + CS + " JKLMNOP ABA" + cS + " 
RSTUVWX" + QS + DS 
18848 SEESAWS (2) = BS + LS + "STS" + CS + KS + “GHG 
pete Ls + “UVU" + CS + KS + "GHG ABA" 
+ “2v¥Z" + LS + “ABCWD NOP" + CS + " 


KLM" + KS + QS + DS 


19858 SEESAWS(3) = BS + " 
UVU [Eek 1 GHe 


eee lo + NOP DWHBQR" 


3Q 


3Q 


+ CS 
VG ds 


1 _ LS + "STs" + cs + 


+ CS + "ABA 


Toeoeer MORI EAGY + KS + OS + DS 


19969 SEESAWS (4) = BS + " 
GiGi + CS + "ABA 
OUMbds + CS + "“TWCUTSRO3 


it] + Cc S + " 


19980 POKE - 16368,2 
mez ie zo, O5;AS;09;DS;P$;AS;"1" 


18898 HCOLOR= 1 


Higeowels, 152 FO 267,152 TO 267,48 TO 13,48 FO 13,152 


Hemet = 55> TO 159 STEP 10 
neeere ll, i TO 13,1 

NEAT 

BOR =—25 TO 266 STEP 29 
peleer  2,l52 TO 1,154 


ie 


AG a Coa 


DEF" + CS + 


+ OS + DS 


IOS 
+ Es Je | 
Ue tO) o. )> 


"ABA 


GH 


+ KS + a! dal Ue + Cs + 





NEXT 

HCOLOR= 5 

Hem t = 13 TO 266 STEP 5 
HeeOT 1,55 


18116 GOSUB 2566 
PREM INITIALIZE FIRST EVENT 


16126 RETURN 
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E.- FISHPOND LOGO PROGRAM 


1g GOSUB 19009 
> moet ENITIALIZE 


999 REM MAIN ROUTINE; CLOCK 


1090 If TT = Tl THEN GOSUB 2999 
mee GOTO POO 


NEXT 


meee tree sek ( — 16384) > 127 THEN GOSUB 3099 
Ree een REY PRESSED TO STOP CLOCK 


moe TT = TT + 1 


geuowe FOR £f = | TO HT 


eee XX 

s 7 VTAS Y 
PRINT UPS 
Y=yYetl 
NEXT 


VTAB Y 
PRINT BLNKS 
HTAB X 
VTAB Y 
PRINT STAYS 
HTAB X 
VTAB Y 
PRINT BLNKS 


Vie Y 


= a 


VTAB Y 
PRINT BLNKS 
HTAB X 
VTAB Y 


Uke 





: PRINT SPLSHS 
* BAB X 

: VTAB Y 

> PRINT BLNKS 


2oo0 shite] INT ( = 10 * LOG 
meee 2S THEN AT = 5 


5009 IF PEEK ( - 16384) 
wees GOTO 3970 
* : REM RUN CLOCK SLOW 
Bye TRePEEK ( - 16384) = 
aoc Gone 3070 
Fe: Heme RUN CLOCK FAST 


3020 IF PEEK ( - 16384) = 
3033 IF PEEX ( - 16384) = 
3040 IF PEEK ( - 16384) = 
3050 IF PEEX ( - 16384) = 


a it Wee. 7 
7 eee) | 
Pied 95; 


HTAB 49¢ 


( RND 


ZL 


eee, 


168 


bo 3 


201 


205 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


pe) 
li 


Oe 


4499 


1000 


PRINT ZS; 


PRINT WS;0S;AS;PS;0S5;8$;P$;08;TS;P$;2Z$ 


* 

oe 

‘o> Vos 19 
x 

~ 

~ 


PRINT CHRS (4);"RUN MENU" 


3060 IF PEEK ( - 16334) = 
“2 PReENT ZS:PS 
* ; END 


209 THEN POKE - 
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16368 ,90 





PORE — 16368,9 
RETURN 


PRINT ZS 

VTAB 7 

HTAB 1] 

PRINT VS; 

VTAB 19 

HTAB 492 

PRINT WS;0S$;AS;P$;0$;BS;P$;0$;TS;P$ 


HEae 35 

Bam Aon2 soo: "KEY" -CS;CS:; TAB ( 3);SS; "ACKNOWLEDGEMEN 
TIS US 6 es ONS ae a - 

Brewers) oo; INTRODUCTION" :KS;"...0< cc cceee cesses 
weer eo TAB 3)>SS°"MENU"*KS:"...< 0 cece en Bee o cicne ce 2 
ee es oa MM 

Premier ¥S-0S;AS;PS;:AS"1" 

GOTO 39792 


VTAB 3 


VTAB 21 
Biase ii 
PRINT *[{SPC] TO CONTINUE” 


HTAB 49 


HTAB 3 
PRINT SS$;"THE AUTHCR WISHES TO ACKNOWLEDGE";CS; TAS8( 3 
\;"THE USE OF THE FOLLOWING SOFTWARE";C$; TAB( 3);" 
IN PRODUCING THIS PACKAGE;" 
Diese Comes. TAS( 3) *KSe"'APPLESOFT TOOLKIT’, °;LSe BY 
re Soomeenoe Le "= CS- —TAB{ 3)-S5S>"COMPURER, 8°:S>S;" Mic. 


aa 





ee SRN T Co; TAB( 3);KS;""PRINTER I1l', $3LS;"BY °%:S5S;*COMP 
UTER ";S$S;"SYSTEMS "CS; TAB( 3)-SS:"DBSIGN™ 


4276 IF PEEK ( - 16384) < > 1698 THEN 4279 
4289 PRINT PS 
> VTAB 5 
HTAB 3 
PRINT SS;"THE ";S$;"APPLESOFT TOOL KIT PROVIDED";CS; 
TAB( 3);"THE MEANS FOR BUILDING, DISPLAYING,";CS; 
TAB( 3);"AND ANIMATING CHARACTERS, PLUS A";CS; TAB( 
3);"HOST OF OTHER FEATURES TO ENHANCE" 
4290 PRINT TAB( 3);"PROGRAM DISPLAY.";CS;CS; TAB( 3);SS;"THE 
".SS;"PRINTER “;KS;"II ";LS;"PACKAGE PROVIDED";CS; 
TAB( 3);"FORMATTING OF NUMERICAL OUTPUT FOUND";CS; 
TAB( 3);"IN TWO PROGRAMS OF THIS PACKAGE." 


4398 POKE - 16368,9 


omgeeemebek ( — 16384) < > 168 THEN 43190 


Meco se RINT YS;PsS 
: GOTO 4990 


4399 REM INTRODUCTION SUBROUTINE 


VTAB 3 


PRINT "-({ ";SS;"INTRODUCTION ]-" 


ADA 1 1 


HTAB 1 
PRINT VS; 
VTAB 20 
HTAB 49 
PRINT WS; 


BEAR 3 
PRINT SS;"THE FOUR PROGRAMS OF THIS PACKAGE";CS; TAB ( 
3);"SIMULATE SITUATIONS WHICH ARE BASED";CS; TAB( 3 
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);"ON AN UNDERLYING ";S$;"POISSON PROCESS." 


awee= == a= == 


=—_ ea a ae =a 


= = a =e a 


_ane eee eee eee eee eee eee Se ee Se ee 


Pole Cejmtns( 3);55;"THE FIRST, LABELED '";S$;“POIrSSON 
elec meenOechos' , 9 7CS; TAB( 3);"IS A SIMPLE DEMONSTR 
ATLONTOPSTHE ;C€S; TAB({ 3);"OCCURRENCE OF EVENTS IN 
A ";SS;"POISSON";CS; TAB( 3);"MANNER. ";SS;"THE SE 
SONDyee «sks; MM1O'," 


PRINT TAB( 3);LS;"SIMULATES A SIMPLE SINGLE-";CS; TAB( 
3); "SERVER QUEUE WITH EXPONENTIAL";CS; TAB( 3);"INT 
ERARRIVAL TIMES AND EXPONENTIAL";CS; TAB( 3); "SERVI 
CPEs em tHE ;AS;° M/M/1 "sLS;:"QUEUE)."; 


=— oe eee ae eee ae ae ee ee ee ee ee ee 


-— a= eee ae Se ee ee Se ee a ee GP ee a Se oe 


PRINT PS 

VTAB 5 

HTAB 3 

Pee os: THE THIRD, THE ‘'":SS:"DAM “:SS;"MODEL', PORT 
RAYS";:CS; TAB( 3);"ONE OF THE CLASSIC APPLICATIONS 
OF":CS; TAB( 3);"THE COMPOUND ";SS$;"POISSON PROCESS 
Pe ose hr 


PRINT TAB( 3);"FOURTH PROGRAM, THE '";SS$;"DAMAGE ";SS;" 
ewe Cs; TAB 3);"“DEPICTS THE COMPOUND’ ~;Ss; PO 
mS ONmeROChSS ;CS; TAB( 3);"APPLIED TO THE CUMULATI 
VE DAMAGE";CS; TAB( 3); "MODEL." 


— ce oe cee ee ee oe oe ee ee ee eee ee 


PRINT 

Prine tAp( 3);SS;"THE PROGRAMS ARE DESIGNED TO PROVIDE 
meres TAB({ 3);"A REAL TIME PERCEPTION OF ";SS;"POIS 
SON ":CS; TAB( 3);"PROCESSES IN ACTION." 


aEpnameeamr @eae awa 2 aweaw eS ae a= a= a a= «= a 


POKE - 16368,90 


IF PEEK ( - 16384) < > 1690 THEN 4529 


_eameameamweam ame a= a= a= a= =a aw =e a= == 


PRINT BS 

VTAB 5 

HTAB 3 

Peiemoc: “THE MENU PROVIDES THE DETAILS OF";CS; TAB( 3 
);"HOW TO RUN EACH OF THE PROGRAMS.";CS; TAB( 3);SS$ 
>"ANY PROGRAM MAY BE RUN FROM ANY" 


-— oe ee oe eee oe ce ee Oe a 


PRINT TAB( 3);"OTHER PROGRAM BY PRESSING THE KEY";CS; 
TAB( 3); "DESIGNATED IN THE MENU." 


ewe meer mAb ( 2)5S5;"FINALLY, fACH PROGRAM 1S PROVioED 
Deore 2) "WITH ITS OWN °";SS;"HELP* PROGRAM WH 


= 
Te 





Pete eae lbAD( S3)e ° DEFINES KEYBOARD COMMANDS. ““;SS; 


=p EP «ee 4 cae 7a» 


eam ae ee ae oe 


"PRESS":CS; TAB( 3);"THE "; 


a 


—_ Pp awe ae eee eee ee 6 EP eee SP eee eee ee aap 


PRINT “'2®>SS-"H' KEY TO GET '":SS:"HELP.'” 


—_e EP CP AP AP SP Ge PP Pe Pe 


POKE = 16368 ,9 


IF PEEK ( - 16384) < > 160 THEN 4589 
PRINT YS$;PS$ 
GOTO 409@ 


a a eee ee eee 


Pred) Os; 1o;PS;05;B8S;AS"1" 

VTAB 4 

HTAB 3 

Pemba eo CSCS: TAB( 11);>;LS;AS"2";"BY ":KS;>"R. J. 

oo DAVISON":CS;CS; 

PRINT C$; TAB( 3);:S$;"SUBMITTED IN PARTIAL FULFILLMENT" 
C$; TAB( 3);"OF THE REQUIREMENTS FOR THE DEGREE";C 
Seeeioomesa)s OF ";SS;"MASTER OF ";SS$;"SCIENCE IN ";S 
S$; "OPERATIONS";CS$; TAB( 3);S$S;"RESEARCH FROM THE "; 

PRINT SS* “NAVAL °%;:SS;"POSTGRADUATE";CS; TAB( 3);S$S;"SCH 
Ole 755° MONTEREY, ";SS;"CA. "2 SS>"ADVESORS>) > 
Gere mass) KS> "J. D. “:;SS;"ESARY AND ";KS;"J. Le. 
CASS wae 3500 1S 

Prpiecc ese) TAB( 11)>;"{SPC}] TO CONTINUE";0S;AS;PS:+KS;A 
Saas ta 

RETURN 


—__e EP aap «Pp eee eee eee 6 6 eee 6 6 6 6 oD 


Pom GHRs (1) 
BS = CHRS (2) 
C$ = CHRS (3) 
DS = CHRS (4) 
ES = CHRS (5) 
mom = sCuRS (11) 
Meo CHRsS (12) 
Som- CHRs (15) 
Eom) Guns (16) 
QS = CHRS (17) 
Soe] CHRS (19) 
TS = CHRS (29) 
wc = CHRS (22) 
WS = CHRS (23) 
wise =) CGHRS (25) 
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CHRS (26) 


BS + 


BS + 


Seo 


R 10906 


GOSUB 4789 
eae iLSPLAY TITLE 
GOSUB 29429 
Romer tiALIZE IST JUMP 


Poke URN 


OApe + CS + "HI" 


ep) + cS -. 


eo 


A (ash ay t+ @Se+ DS 


"aK" ny Qs A DS 


" a cS fe yy =e GS 4. LM + OS ae DS 


uw NO" —- CS = "POR" 4 Os + DS 


sp GS eae DS 


3°43" = CS + 
+O Sua 





F. MENU PROGRAM 


19998 AS = CHRS (1) 
¢ CS = CHRS (3) 
DS = CHRS (4) 
KS = CHRS (11) 
LS = CHRS (12) 

>; PS = CHRS (16) 
: SS = CHRS (19) 
>: VS = CHRS (22) 
WS = CHRS (23) 
YS = CHRS (25) 
ZS = CHRS (26) 


1018 PRINT 2$;P$;A$"2" 
: POKE - 16368,2 
HeOLOR= 3 
Smet Oorel,24 TO 279,24 
: HPLOT 1,136 TO 279,136 
: VTAB 6 
: HTAB 5 
: PRINT VS; 
VTAB 16 
HTAB 39 
PRINT WS; 


fens 1 i 
Beene oe) 7KSs MENU } =" 


HTAB 26 


HeAB i 
Poe wore Ol SSON se, So; PROCESS  ;KS>"..e0sss0ces80l 7CS 
PINOUT we a. Geese sie cieteise se «oe 2) 3 CS3SS;"DAM eesSss “MO 


Winnie, <5 5 6 ke 8 0-0 ee e® eee? ae 
2029 VTAB li 
: HTAB 1 
Peetu DAMAGE "SS; "MODEL. ..20 ccc cece ees A 3CS soo & 
maeOND.  -SS*"LOGO........ See ¢ CS 3 S55 OUT ares 
t 


SEeEeiiis sisis «ss « « SO Oe eee ee i 


2938 VTAB i5 
: HTAB 16 
PRINT SS;"SELECTION -[{ ]-"; 
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HTAB 28 

GET RS 

VTAB 15 

HTAB 28 

PRINT VAL (RS); 
FOR I = 1 TO 1000 
NEXT 


ee ee ee ae ee ee SP ee eee eee ee 


Mm VAL (RS) = 
PRINT YS;PS$;ZS 


0 THEN POKE - 15368,9 


= VAL (RS) 


Pees) + PESK (116) * 256 


ON I GOTO 3000,3010,3020,3030,30490 


GOTO 2949 

PRINT ZS 

BPR GHRS (4);"BLOAD POISSON.SET,A",CS 
PRINT CHRS (4);"RUN POISSON PROCESS" 
PRINT ZS 

Peet SeHR> (4);"BLOAD QUEUE.SET,A",CS 
PRINT CHRS (4);"RUN MM1Q" 

PRINT ZS 

Peeireetine (4); "BLOAD DAM.SET,A",CS 
PRINT CHRS (4);"RUN DAM MODEL" 

PRINT ZS 

PRaNG CHRS (4);"BLOAD DAMAGE.SET,A",CS 
PRINT CHRS (4);"RUN DAMAGE MODEL" 
PRINT ZS 

PORN GeeHRo 9(4);"BLOAD FISH.SET,A”",CS 
PRINT CHRS (4);"RUN FISHPOND" 


Se 


oh | oe Fee 
(in 


- 
ss. = 
ee 


- 


— 


- 
lf} vi _ 


: — 
a 


7 





SAMPLE HELP PROGRAM 
AS = CHRS (1) 

: CS = CHRS (3) 

: DS = CHRS (4) 

7 °KS"= CHRS 9C11 ) 

: LS v=sCHRoamG > } 

>: PS = CHRS (16) 

: SS = CHRS (19) 

ome CHRSurt 2 ) 

: WS = CHRS (23) 

> YS@=] CHRS (25) 

>: ZS = CHRS (26) 
PRENT Z2S>Ps- As” 2" 

: POKE - 16368,9 

: HCOLOR= 3 


HPLOT 1,24 TO 279,24 
Peete, too TC 279,136 
Vie 16 

HTAB 5 

PRINT VS; 

VTAB 16 

Heya 3 2 

PRINT WS; 


VTAB 3 

HTAB 1 

EReevdteoo>s ©HIS PROGRAM PRESENTS TWO INDE- PENDENT “;SS$ 
PeeetosON PROCESSES. mesos NT LADY OTHE aeons 
SUMP OsED AS ONE. °;S5; "THEY MAY BE DECOMPOSED AND 
BUM TOGETHER OR RUN SEPARATELY." 


VTAB 15 
HTAB 1 
ER S55 


[SPC] TO CONTINUE"; 


Pent) 16308 ,0 


Pemesonw | =~ 16384) < > 160 THEN 2042 


PRINT PS 
VTAB 6 
HTAB 3 
PRINT 
VTAB 7 


"_( ".4“$-"KEYBOARD COMMANDS ]-" 
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: HTAB Z5 
[eer SSe™ KEY" 


2869 VTAB 8 


HTAB 1 

Pew ScremelOCK  +SS 37 PAST RS: 46.6% ec te es wee SoS 
Taeeweeer >So; SLOW (DEFAULT) "-KS;-"..... S°;CS;SS-"M 
Reni RSet woos ss oo Seeteene. 6 ia oe etl CSSSS "OUT = KS. 


Hae |i 
PRINT SS;"CHANGE ";SS;"MEANS";KS; Sa Cs 
Peep musk, =- SS; "RESUME...«.. ere e SPC BAR". eee 
[SPC] TO CONTINUE"; 
2088 POKE - 16368,9 
2099 IF PEEK ( - 16384) < > 160 THEN 2092 
2190 PRINT PS 
: VTAB 6 
: HTAB 3 
>; PRINT "-[ ";KS;"KEYBOARD COMMANDS ]-" 
VRB 7 
-SHTAB 25 
: PRINT SS;"“KEY" 
2119  VTAB 8 
: HTAB 1 
Moen Sor sVENTS °>SS;"“SUPERIMPOSED" :KS;"..06.2-.U"3CS:S 
$- "EVENTS SS DECOMPOSED" :KS2 "i... ce8% ~T > €S Ss 0k 
emer iSso- EVENTS “+7SS+ "ONLY": KS; "... 0c ceee A". CS; S$; 
MeWcm SS) EVENTS "*-SS;"ONLY":KS;"...6s8 600s 3" 
2129 VTAB 15 
: HTAB 1 
PRINT SS;" [SPC] TO CONTINUE"; 


Ze Owe oe cee 1 OS 08 , 9 


2140 IF PEEK ( - 16384) < > 1650 THEN 21406 
2158 PRINT PS 
>: VTAB 6 

HTAB 3 

PRINT “-{ ";KS;"KEYBOARD COMMANDS ]-" 

VTAB 7 

HTAB 26 

PRNoe Son Key “ 





ZL 68 


VTAB 8 
HTAB 1 


Poise eh tor leCS ) +SS; “DISPLAY";KS;"....s.2-eD"3CS; 


Sec wee CS oo DISPLAY ";SS;"OFF":KS:"....0": 
Co oomeyenteL: 7o57 DISPLAY “:SS-"OFEF"=KS:".....2. 
Reece oe TIME "sSor"DISPLAY “:SS:"OFF":KS-"....<. : 
Brea. 
Visas 12 
HTAB 1 


SPR eso cme UME SS; "VEHICLE ";S$;"DISPLAY"sKS;:".... 


Were ocrenroUME 9 SS> "TIME "sSSs"DISPLAY “sKS:".... 
Wahl) IOS 1G Se) Re [SPC] TO CONTINUE"; 

IF PEEK ( -—- 16384) < > 160 THEN 2192 

PRINT PS 

VTAB 6 

Ip dh/els) 98) 

PRINT "-[{ ";KS;"KEYBOARD COMMANDS j]-" 

VTAB 8 

HTAB 1 


eos oLAtTToTiICS DISPLAY MUST";CS; "BE ON AND V 
Popeechemmmoe LAY OFF ;CS;"BEFORE THE TIMING DISPLAY”; 
Cree CoP enURNED OFF. “;55; REVERSE” ;CS; "THE ORDE 
PeOenkeouMi NORMAL’ ;CS; “OPERATIONS. 


POKE - 16368,2 

VTAB 15 

HTAB 1 

CPaniteriSoPpe| TO REVIEW,@">KS:"{0] ";LS;"TO QUIT": 
IF PEEK ( - 16384) = 160 THEN PRINT PS 

POKE — 16368,2 

GOTO 2002 

IF PEEK ( - 16384) = 289 THEN POKE - 16368,2 
PRaENT ZS 


Peepveeenn> (4)>"RUN POLSSON PROCESS" 


GOTO 2249 





H. STARTUP PROGRAM 


go REM PROGRAM TO LOAD HRCG 
109 HOME 
HGR 


138 ER GHRSsw(4);"SLOAD RBOOT" 
1408 CALL 529 
homeo ncCULTs REBOOT 


200 IF ADRS < = 9 THEN ADRS = ADRS + 65536 
* : REP MAKE ADRS POSITIVE 
219 Gse=s Dass 7/68 * 2 
Seelam: -CS 
=INiT mes / 256) 
Gie—) €S 29750 ~ CH 
230 Poke, ADRS + 7 ,CL 
swee@ne ADRS + &8,CH 


24G oaeieeino (4)-  BLOAD PiGSH.SET,A";CS 


259 Polbi@eeins  (4)>-" SLOAD ROMAN.SET,A’;CS + 7/68 
390 CALL ADRS 

> Rete LIL TEALIZE HRCG 
319 PRena CHRS (4);"BLOAD P2,AS9A97" 

: REM LOAD PRINTER If 
B20 CALL 39431 

> Rive INITIALIZE PRINTER 
339 PORE 20,0 

; Rem ONERR OFF 


349 PRINT CHRS (4);"3LOAD FISHPOND.PIC,AS4999" 


tH 


i 


ay 





PRINT CHRS (4);"RUN FISHPOND" 


PRINT “UNABLE TO LOAD" 


POKE 216,9 
REM ONERR OFF 


383 
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